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EDITORIAL 


De grandes nouveautés vous attendent pour cette 
nouvelle année dans l'univers de la micro-in- 
formatique: 

- tout les micros seront sous MSDOS ou iis ne 
seront plus. 

- les IBM se “Mac-intoshiseront" (GEM-like) et 
les Mac seront ouverts c'est à dire pourront 
exploiter les logiciels MSDOS. 

- tout viendra de TAIWAN, SINGAPOUR, HONG-KONG 
bref, les claviers seront jaunes... 

- ceux qui sortiront du standard de BIG-BLUE 
seront condamnés à l'ignorance (d'abord on 
siffle, puis on tire si on n'obtempère pas). 

Ceci pour la note d'optimisme coté micro. 


Une nouvelle maladie a fait son apparition: le 
SIDA mental (découvert par le directeur et édi- 
torialiste du FIGARO MAGAZINE): seul remède, 
attendre que le sujet vieillise ou s'abonne au 
FIGMAG (à bannir dorénavant de toutes les bon- 
nes salles d'attentes). 


SOMMAIRE 


Un nouveau langage a fait son apparition: le 
FORTH 83-Standard (la gestation a été longue); 
le FIGMAG a passé cette naissance sous silence. 
Peut-être sommes nous contaminés... 


Une nouvelle façon de voir l'univers: le livre 
de Mr Hubert REEVES, l'heure de s'enivrer. se 
dévore sans provoquer d'indigestion. Sa lecture 
devrait être conseillée à Mr PAUVELLS. 


Une nouvelle année enfin, que l'on vous souhai- 
te de tout coeur, pleine de réussite et la con- 
crétisation de tous vos espoirs. 
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Une des caractéristiques les plus intéressantes de 
l'APL, est sa capacité à traiter les variables 
multidimensionnelles: vecteurs, matrices, ta- 
bleaux. 


Nous n'allons pas faire ici un exposé complet sur 
le traitement de ces variables, mais simplement 
tenter d'en donner un aperçu au non-APliste. 


Considérons le petit problèm suivant: Pierre 
revient du marché avec 1 pomme, 2 poires et 3 


oranges. De son coté, Paul rapporte 3 pommes, 1 
poire et pas d'orange. Nous allons créer deux 
variables : 


PIERRE + 1 2 3 
PAUL + 3 1 0 


Chacune de ces variables comporte trois valeurs 
“chaînées" ensemble. On leur donne le nom de "vec- 
teurs" de longueur 3. Si en veut savoir ce qu'il y 
a dans la variable PIERRE, on frappe: 

PIERRE 
et la réponse est: 1 2 3 


Si l'on veut savoir la longueur de la variable, on 


uilise la fonction e (rho) sous la forme 
monadique en frappant: 
p PIERRE 
La réponse est: 3 
PIERRE est un vecteur de longueur 3. Si l'on veut 


savoir combien de fruits auront été rapportés, il 
suffira de frapper: 


PIERRE + PAUL 


433 


C'est à dire 4 pommes, 3 poires et 3 oranges. Si 
une pomme coûte 1,5 Fr, une poire 1 Fr et une 
orange 2 Fr (Ndir: bigre, quelle inflation!!!...), 
on peut connaître les sommes payées par PIERRE en 
frappant: 


PIERRE x 1.5 1 2 


La réponse sera: 


résultat: A5 2 6 


PIERRE aura acheté pour 1,5 Fr de pommes, pour 2 
francs de poires et pour 6 francs d'oranges. 


On aurait pu créer une variable: 
PRIX æ 1,5 1 2 
et on aurait obtem le même résultat en frappant: 
PIERRE x PRIX 
PIERRE en utilisant la fonction "réduction" 
Sans entrerici dans des détails de syntaxe, 
sachons seulement que les symboles +/ placés 


devant un vecteur provoquent le calcul de la some 
des éléments du vecteur: 


. On pourra même avoir la somme totale payée A 


+/ (PIERRE *x PRIX) 


donnera: 9.5 
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Soit la somme payée par PIERRE. Bien entendu, on 
peut en faire autant pour PAUL. On aurait pu 
également obtenir le même résultat en faisant le 
rs interne" des vecteurs PIERRE et PRIX, qui 
s'écrit: 


PIERRE +.x PRIX 


Les symboles +.x provoquent les produits des 
éléments correspondants de chaque vecteur, puis 
la somme de ces produits. Mais n'allons pas trop 
loin pour l'instant. 


Nous aurions pu rassembler les données relatives à 
PIERRE et à PAUL en une seule variable bi- 
dimensionnelle (tableau) dans laquelle les valeurs 
relatives à un même individu seraient sur une même 
ligne, et les valeurs relatives à un même fruit 
gur une même colonne. 


Pour cela, il faut créer une variable à deux 
lignes et trois colonnes en utilisant la fonction 
p (rho) diadique en frappant: 

TABLEAU *+ 2 3 p PIERRE, PAUL 
TABLEAU valeurs 


La variable contient les 


suivantes: 


La fonction » monadique permet de contrôler les 
dimensions de la variable: 


e TABLEAU 
résultat: 2 3 
soit 2 lignes et 3 colonnes. 
Le nombre total de fruits rapportés par l'un et 
l'autre se calcule à l'aide d'une réduction le 
long des ligneæ: 

+/ TABLEAU 
donne: 6 4 
Soit 6 fruits pour PIERRE et 4 pour PAUL. Le 
nombre dechaque type de fruit est donné par une 
réduction le long des colonnes: 

+ TABLEAU 
réultat: 4 3 3 
goit 4 pommes, 3 poires et 3 oranges. 


Un produit interne permet de connaître la somme 
globale payée par chacun: 


TABLEAU +.x PRIX 
donne: 9.5 5.5 
soit 9,50 Fr pour PIERRE et 5,50 Fr pour PAUL. Une 
réduction de ce dernier résultat donne la somme 
totale payée par PIERRE et PAUL. 

+/ TABLEAU +.x PRIX 


donne: 15 
suite page 8 


par F.ESPINASSE 


type logofich.txt 

L'application IOGO que vous trouverez ci-jointe est un 
répertoire téléphonique grand format, 1000 noms possibles, 
pouvant servir de support d'étude des fichiers LOGO. 


Configuation TO7 + extension 16K + disquette simple face et 
densité (NdlR: ou 1707-70 + disquette SFSD). 


LES GRANDES LIGNES 
DE CETTE APPLICATION 


Le fichier global des noms et numéros "TEL est rangé sur 
disquette en 11 tranches gérées par la liste "ARCH. 


Seule sera présente en RAM une tranche de 100 noms (à 
l'aise). 


L'échange se fait au moment où ayant tapé le nom (et 
validé), on cherchera des yeux le numéro de téléphone à 
inscrire. 


Le système présente le ou les numéros des 
éventuels pour éviter les redondances. 


homonymes 


Les réponses sont classées en liste dans l'ordre croissant 
des noms au fur et à mesure des entrées et les homonymes, le 
dernier en tete. 


Des corrections par effacement sont possibles. 
L'impression du répertoire par tranches. 


La sauvegarde de la dernière correction où l'ajout se fait 
par "OFF avant extinction des feux. 


QUELQUES OBSERVATIONS 
SUR LES ENCOMBREMENTS MEMOIRE 


Un éditeur "OCCUP permet de définir des procédures de test 
d'occupation qui apportent des renseignements intéressants. 


La liste "ELM permet de définir la taille du fichier. Telle 
que définie, elle génèrera des listes de listes de 10 
caractères. 


Le premier de chaque mot est un identificateur de ligne, les 
caractères qui suivent: la colonne: 


? DONNE "TST MULTI [] 65 116 
génère un encombrement 


"ELM" réduit à un mot de 9 caractères: 
10car x 50 = 500 demandent: 530 octets (il n'y a pas 
d'objections). 


"ELM réduit à deux mots: 
2 x 10 x 50 - 1000 demandent: 1340 octets 
(on est passé en deux dimensions?). 


"ELM à 5 mots: 

5 x 10 x 50 = 2500 demandent: 2830 octets 
(50 Lignes, 5 colonnes, rien à dire). 
LOGO ouvre une autre possibilité, celle de l'indirection que 
nous avons testée. 


? DONNE "TST SIMPLE [ ] 65 116 


génère une liste de mots définis par le premier de "EIM 
auquel on "DONNE le restant de cette liste. Le meme nombre 
de caractères n'est généré que dans le dernier cas, mais 
l'organisation et l'exploitationne sont plus du tout le 
memes , l'encombrement non plus. 


Pour 10 x 50 + 4 x 10 x 50 = 2500 caractères, l'encombrement 
passe à 3080 octets. 


LES ENCOMER EMENTS 
LORS DE TRAITEMENT 


Ils sont particulièrement intéressants à connaitre. Deux 
méthodes sont possibles, à ma connaissance, et seulement 
deux: 

- la récursivité non (terminale permet de supprimer ou 
modifier un “lément quelconque 


TRAITEMENT DE FICHIERS 


par G.CHANDRU 


EC *VRP-13 


POUR INIT 
DONNE “TEL CCAAAAA A] (22222 21) 
FIN 


POUR VERSE ME 

SI VIDE? (ME CSTOP] 

DONNE "TEL ORDRE INSR :TEL PH PREM PREM :ME PREM SP PREM ME 
VERSE SP ©ME 

FIN 


POUR INSR :M :N 

SE PHKSM PREM :N PREM PREM :M CRENDS MP :N :H] 
RENDS INSR +#LIF :M :N 

FIN 


EC “VRP-20 


POUR HOMON :M ‘NOM 

SE EGAL? :NON PREM PREM :M [VISUL :AFI PREM :M :LON TAPE “QUI? SI EGALT * 
Q LISCAR (EC C) RENDS :M] CEC (11) 

SE PM<SM :NOM PREM PREM :M CTAPE [tel:3 RENDS MP PH :NOM PREN LL M] 
RENDS HOMON +LIF :M :NOM 

FIN 


POUR ORDRE A 

SI ASCII PREM PREM :M € ASCII PREM DER :M (RENDS :M] 
RENDS ORDRE +LIF :M 

FIN 


POUR PHSH :P :S 
SI VIDE? :P CRENDS VRAI] 
S1 VIDE? :S CRENDS FAUX) 


SI EGAL? PREM :P PREM :$ [RENDS PHCSH SP :P SP :5] 


RENOS PLP? ASCII PREM :P ASCII PREM :S 
FIN 


POUR +4LIF :L 
RENDS MD PREN :L SP :L 
FIN 


POUR -LIF :L 
RENDS MP DER :L 50 :L 
FIN 


EC *VRP-21 
DONNE "AFI [non: tal:] 


DONNE "LON CE 11] 


POUR E 

TAPE (Premier caractere ?] 

DONNE “NOM PREM LL 

SI NON NOM? “DSK [NARCH] 

SE NON TAR? :DSK ASCII :NOM COFF NARCH) 

ENUM 1 SP :TEL 

TAPE (NUM À EFFACER ?) 

DONNE "NUM PREM LL 

SE NOMBRE? :NUM COONNE “TEL DRDRE ENLI NUM + | TEL] 
FIN 


POUR ENLI NL 

SI EGAL? ITEM :©N TEL PREM :L CRENDS SP :L) 
RENDS ENLI ©N +LIF OL 

FIN 


POUR VISUL ‘A ML 

ST VIDE? (A (STOP) 

TAPE MOT PREM A PREM :K 

REPETE PREM :L - CO PREM ‘M [TAPE CAR 9) 
VISUL SP :A SP :M SP :L 

FIN 


POUR C0 M 

S1 VIDE? <M CRENDS 0] 
RENDS ! + CO SP :M 
FIN 
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DONNE “TST DEBAL :TST 


provoque l'affichage de la place disponible après génération 
de "TST sans différentes formes. Il faut noter que 
l'occupation est considérable et indépendante de la forme, 
seule la longueur de liste importe (le nombre de lignes). 


circulaire 
infime par 


= la récursivité terminale avec une gestion 
permet le meme travail, avec une occupation 
rapport à la première méthode. 


DONNE “TST CIRCUM : TST COMPTE :TST 


4500 octets dans la 1ère méthode 
430 octets dans la dernière méthode. 


La première méthode permet une définition très claire, très 
élégante, mais à réserver pour les listes courtes. 


LES PROCEDURES PRINCIPALES 


Ajoute: POUR A 

permet d'ajouter un nouveau nom avec æstion circulaire de 
la liste "TEL. CElle-ci a été ouverte avec des mots qui 
seront des identificateurs de début et de fin. Quelle que 
goit la déformation de œætte liste, la procédure ORDRE 
rendra une liste avec ces identificateurs correctement 
rétablis. 


Menu: POUR M : 
la procédure M est une commande vecteur qui écrit le menu en 


fonction du contenu de la liste "MENU, ceci permettant de 
valider un choix et un seul. Elle pourrait être 
éventuellement complétée par des effacements de procédures 
indésirables le cas échéant. 


Nota: la limite en longueur de ce fichier n'est pas 
tellement l'occupation mémoire, mais le temps mis par le 


système pour installer une nouvelle tranche d'archive "TEL 
en mémoire. Ce temps n'est pas négligeable pour les grands 
fichiers. 

POUR ENUX :P :L 


SE VIDE? SD :L CSTOP] 

TAPE :P VISUL :AFI PREM :L :LON EC * 
ENUN 1 + :P SP :L 

FIN 


EC "VRP-22 

DONNE “ARCH CI64 66 A-A/TEL) (66 67 B-B/TEL] L66 68 C-C/TELI 67 63 D-D/T 
EL] L68 71 E-F/TEL) 70 72 6-G/TEL) (71 77 H-L/TEL] (76 78 N-N/TEL) (77 8 
1 N-P/TEL) [80 84 Q-S/TEL) [83 91 T-2/TEL]] 


POUR À 

TAPE “non?: 

DONNE “NOM PREN LL 

SI NON NOM? "DSK CCOLOR NARCH SUITE STOP] 

SI TAR? :DSK ASCII :NON (SUITE) COFF NARCH SUITE] 
FIN 


POUR SUITE 
DONNE "TEL ORDRE HOMON TEL ‘NOM 
FIN 


POUR NARCH 

DONNE "DSK SLCT :ARCH ASCII ‘NOM 
RAMENE DER :DSK 

FIN 


POUR SLCT :LA :A 

SE VIDE? :LA CRENDS C1] 

S1 TAR? PREM :LA :A CRENDS PREM :LA] 
FIN 


CRENDS SLCT SP LA A] 


POUR TAR? :L ‘A 
RENDS ET PREM :L < :A PREH SP-:L à A 
FIN 


POUR OFF 

DETAUIS DER :DSK 
SAUVE DER :DSK CMENO) 
FIN 
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POUR COLOR 

TAPE MOT CAR 27 CAR 97 

TAPE MOT CAR 27 MOT CAR 32 CAR 64 
TAPE MOT CAR 27 MOT CAR 32 CAR 83 
FIN 


EC *VRP-23 


POUR ! 

EC “IMPRESSION 

SI NOM? “TEL CEFN *TEL] 
SELAR :ARCH 

SORTIE 2 

EC " ELEM SP :TEL 
SORTIE | 

FIN 


POUR SELAR :L 

SI VIDE? :L CSTOP] 

TAPE PH “de PH CAR 1 + PREM PREM :L PH *a PH CAR PREM SP PREM :L - 1 COUT 
71 

SE EGAL? "D LISCAR CRAMENE DER PREN :L STOP] [EC *] 

SELAR SP ‘1 

FIN 


POUR ELEM :L 

SI VIDE? SD :L LSTOP]) 

VISUL :AFI PREM :L :LON EC " 
ELEN SP :L 

FIN 


POUR M 
COLOR 
EXEC :MENU 
FIN 


POUR DTEL 

DONNE "MENU LEC L'A'joute] EC L'E'dite,efface] EC C'OFF'sauve disque]] 
SAUVE “TEL CHOMON ORDRE PM<SM 4LIF “AFE "LON E ENLI VISUL CO ENUM À SU 
ITE NARCH SLCT TAR? OFF COLOR "MENU "ARCH NH 1 

FIN 


POUR !CTEL 
DONNE "MENU CEC C'I'aprine]] 
SAUVE “£TEL C'AFI "LON VISUL CO COLOR “MENU “ARCH M I SELAR ELEN] 


FIN 
tn 


EC “DCCUP 
DONNE “ELM Caaaaaaaaa bbbbbbbbb ceccccccc ddddddddd eeeeeeeee] 


POUR ALIGNE :L :CD :ID 

SI VIDE? :1D CRENDS :L] 

RENDS MP MOT CAR :CD PREM :1D ALIGNE :L :CD SP :ID :L 
FIN 


POUR LIOOLI :P :C0 : 10 

DONNE *P MOT CAR :CO PREM : ID 
DONNE :P ALIGNE [1 :CD SP :1D 
RENDS .P 

FIN 


POUR SIMPLE :L :CD :CF 

SI EGAL? :CD :CF CRENDS :L] 

RENDS MP LIDOLI * :CD ELM SIMPLE :L 1 + :CD CF 1 
FIN 


. POUR HULTI :L :CO °CF 


SI EGAL? :CD CF CRENDS :L] 
RENDS MP ALIGNE [2 :CO ELA MULTI 4 L 1 + :CD CF :L 
FIN 


POUR ODEBAL :L 
SI VIDE? :L CEC PH "DISPONIBLE: PLACE RENDS [1] 
RENDS MP PREM :L DEBAL SP :L 


FIN 

POUR #LiF :L POUR CIRCUX :L :N 

RENDS MD PREM :L SP :L SE EGAL? @ :N CRENDS :t] 
FIN RENDS +#LIF :L 1 - :N 


FIN 


EDITEUR PLEIN ECRAN par Alain BARRAUD 


FIG-Forth pour AMSTRAD 


SCA #8 Le ouh #1 4 
0 ;5 Pour les nordus du Forth-Aastrad: à ( Editeur pleine page ABSEP86 } 
À À 
2 voici un Editeur PleinePage qui utilise les commandes de 2 EDITOR DÉFINITIONS  DECIMA 
3 l'editeur du Fig, Il est bien plus rapide et confortable à 
Autiliser que celui paru dans Jedi 25 (pardon à R.Jeannin, mais : BEEP {=-- ; fait ‘hip 
S æerci pour sa copie d'ecran avec l'utilitaire de calculs en LM). 7 EMIT ; 
& N'utilisez que les commandes citees apres vous etre assures que 
T7 les codes Ascii de votre clavier concordent avec ceux utilises t GAUCHE { --- : décrenente R# de 1 } 
8 ici ( sinon servez-vous du SETUP.COM ou nodifiez-les ). R# & Oz IF BEEP 
9 En cas de bugs residuels ou pour toute autre information, voici ELSE -{ R& +! 
18 ou se joindre: THEN ; 
BARRAUD Alain {meabre Jedi} + DROITE { -— | incresente R& de { | 
12 rue des sapins Rt @ 1023 = IF BEEP 
77210 AVON ELSE 1 R4 +! 
THEN ; 
tel: (16,1) 60,72.25,43 (19H-22H ou Week-end) 


#4 

@ { Consandes de l'Editeur Pleine Page ABSEPBé6 }) { Editeur pleine page suite 
Î 36 : HAUT ( --- ! decremente R# de 64 ) 
2 FLECHES-CURSEUR deplacement dans l'ecran vers RHR@ 64 CIF BEEP 

- haut ELSE -64 R4 +! 

- bas THEN; 

- gauche : BAS { -—- | incremente R# de 64 } 

- droite R# @ 959 > IF BEEP 

ELSE 64 R# +! 

8 <CTRL> FLECHE-HAUT anene le curseur en debut de ligne © THEN ; 
9 CCTRL) FLECHE-BAS anene le curseur en debut de ligne 15 DEB15 {=== : R# indique le debut de ligne 15 ) 
14 CCTRL) FLECHE-GAUCHE amene le curseur en debut de ligne 96 RH !; 
11 CTRL) FLECHE-DROITE amene le curseur en fin de ligne DEB-L { --- | RK indique le debut de ligne ) 
12 #LEAD MINUS R# +! DROP ; 
13 <SHIFT} FLECHE-HAUT liste l'ecran n-1 {== 1 R4 indique la fin de ligne } 
14 (SHIFT> FLECHE-BAS liste |'ecran nti 1 - R# +! DRE ; 
15 -} 


SCR # 38 
8 { Commandes de l'Editeur Pleine Page ABSEPBÉ } 8 { Editeur pleine page suite ABSEPB6 } 
1 E) : (ENTER) (== ! R# indique le debut de ligne dessous ) 
2 (CTRL) À resplit l'ecran avec le caractere ‘espace’ . R# @ 959 IF DEB-L1S BEEP 
3 CTRL) E efface la ligne ou se trouve Le curseur . ELSE HAG R# +  DROP 
4 <CTRL) D ote La ligne ou se trouve le curseur , THEN ; 
5 celles du dessous remontent . 
& (CTRE) S insere une ligne vierge , celles du dessous 
7 descendent, la i5ene est perdue . 
8 <CTRL) H nenorise dans PAD la ligne courante . 
9 <CTRL) R recopie en ligne courante la ligne mesorisee : LIGNE {-— ligne ) 
18 par (ctrl> H { si elle est toujours dans PAD ). #LOCATE SWAP DROP ; 
11 CTRL) I insere en ligne courante la ligne memorisee 
12 dans PAD, la 15ene est perdue ( nene renarque }. : LIGNE ligne --- ! affiche la ligne à sa place } 
15 CTRL> (TAB)  tabulation de B .NE PAS UTILISER (TAB) SEUL !! DUP {+1 LOCATE 
14 a cause de son code ASCIT identique a CTRL) I. SCR @ LINE :; 
15 <CTRL) Q retour en Forth, a force d'y penser, =) 


+ CURSEUR Ü--- 1 affiche le curseur ) 
#LOCATE i+ SAP 1+ LOCATE ; 


D —-i O CN = CA FO 


# 39 
{ Commandes de l'Editeur Pleine Page ABSEP84 } 8 ( Editeur pleine page suite ABGEPB6 ) 
35 1: .ECRAN  (—- | liste l'ecran ) 
efface le caratere sous le curseur, les {4 à DO FORTH I ,LIGME 
suivants se decaient vers la gauche, un LO0P j 
espace est ajoute en fin de ligne, 


: ERA-LIGNE ( ligne --- : efface la Ligne courante de l'ecran } 
insere un espace à l'endoit du curseur, + { LOCATE 18 EMIT ; 
le dernier caractere de la ligne est perdu. 
{=== ! efface La ligne en buffer et ecran ) 
9 (ENTER) fait passer en debut de ligne suivante. LIGNE DUP € ERA-LIGNE ; 
18 
11 À part ces conmandes, le texte s'inscrit la où se trouve le 11: CTRD  {--- ! ote la ligne courante buffer et ecran ) 


12 curseur, 12 LIGNE DUP D 1+ 1 LOCATE 29 EMIT .ECRAN : 
IT Ne pas oubiter de faire FLUSH apres avoir quitte | editior, 13 
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SCR # 44 
8 ( Editeur pleine page suite 
À 
23 CIRLX (--- | efface l'ecran buffer et ecran } 
SCR @ CLEAR CLS ; 


ABSEPBE ) 


© #WINDOW 1 20 LOCATE 
SCR H "SERBE SR ; 


ÿ 

4 

5 ? EN-TÊTE 

& ." Editeur Fleine Page : 
7 

8 

9 


{ --- ! montre l'ecran precedent } 
1=iF BEEP 
18 ELSE -1 SCR +! EN-TETE 1 WWINDOW CLS TOP . ECRAN 
ii THEN ; 
12 : SCR+I { -— } montre l'ecran suivant ) 
13 SCR 6179 = IF BEEP 
14 ELSE 1 SCR +! EN-TETE 1 WWINDOW CLS TOP ,ECRAN 
15 THEN ; —) 


@ | Editeur pleine page suite ABSEPB4 } 
l 

2 : INS { == ! insere un espace sous le curseur } 

3 #LAG PAD SWAP CHOVE 

4 BL #LAG DROP C! 

5 PAD  HLAG 1 - DR 1+ R> CMOVE 

b CURSEUR 18 EMIT HLAG TYPE UPDATE ; 

7 

8 

9: DEL { -— ! ote Le caractere sous le curseur ) 


18 PAD C/L 1+ BL FILL 

ii #LAG PAD SHAP CHOVE 

12 PAD 1+ #LAG CMOVE 

is CURSEUR 18 ENIT #LAG TYPE UPDATE ; 
14 

15 --) 


SCR # 4 
8 ( Editeur pleine page suite 

1 3 CTRL_TAB R# € 1016 € IF 
ELSE BEFP THEN ; 


ABSEP86 ) 


8 R# +! (--- ! tabule de 8} 


2 
Li 
4 : ECRIT? {oc --- ! ecrit un caratere iapriaable } 
5 DUP 3i C SW4P DUP 127 > ROT OR 

b IF DR 

7 ELSE DUP LEAD + C! EMIT 
8 THEN DROITE UPDATE ; 
9 

18 : CTRLH 

ii  LIGÆEH; 
12 

13 CTRLR  ( recopie en ligne courante la ligne nenvrisee ) 
i4 LIGNE DUP DUP 

19  ERA-LIGNE EDITOR R LIGNE ; ——) 


{ nemorise la ligne courante dans PAD } 


SCR # 47 


{ Editeur pleine page suite ABSEPBE } 


4 CTRL.I (insere La ligne nenorisee, la 15eme est perdue } 


LIGNE EDITOR ! 
LIGNE i+ { LOCATE 20 EMIT .ECRAN } 


1 quitte l'edition | 


18 (COMPILE) FORTH (COMPILE DEFINITIONS QUIT ; 
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SER # 45 


@ { Editeur pleine page suite ABSEP86 } 


2 : INIT { theatre des prochaines scenes } 
3 2 MODE 

4 @ HUINDON 25 5 80 5 WINDOW 

5 EN-TETE 

6 ié 8 DO 

7 FORTH 1 4 + 1 LOCATE FORTH I SR 
8 FORTH 1 4 + 78 LOCATE FORTH I . 

9 LOOP 

18 1 #MINDO4 23 6 73 9 WINDON 

ti CLS 

12 TOP 

is CRAN CURBELR ; 

{4 --) 

15 


@ ( Editeur pleine page suite ABSEP86 ) 


{1 : CHOIX 

2 BEGIN KEY 

3 CASE 

4 243 ( fleche droite ) OF DROITE ENDOF 
5 242 ( fleche gauche } OF GAUCHE  ENDOF 
& 248 ( fleche haut ) OF HAUT ENDOF 
7 241 ( fleche bas } 0F BAS ENDOF 
8 248 ( ctrl fleche haut ) OF TOP ENDOF 
9 249 ( ctri fleche bas à) OF DEB-LIS ENDOF 
18 250 ( ctrl fleche gauche } OF DEB-L ENDOF 
11 251 Cctri fleche droite } OF FIN ENDOF 
12 245 { shift fleche bas ) OF SCR+1 ENDOF 
13 244 ( shift fleche haut } OF SCR-1 ENDOF 


14 225 ( ctri tab }) 
15 _—) 


Of CTRL_TAB ENDOF 


SCR # 50 
@ | Editeur pleine page suite ABSEP86 } 
1 24 Cctrl X) OF CTRLX ENDOF 
2 SictriE) OF CTRLLE  ENIXF 
3 4(CctrlD} OF CTRLD  ENDOF 
4 19 (ctrl 8) OF CTRL.S  ENDOF 
5 8CctrlH) OF CTRLH  ENDOF 
b i8 (ctriR) OF CTRLR  ENDOF 
7 Sletrll) OF CTRL_I  ENDOF 
8 {7 (ctrl 0) OF STOP ENDOF 
9 224 { COPY } OF ING ENDOF 
18 127 | DEL) QF DEL ENDOF 
14 13 (ENTER ) OF <ENTER>  ENDOF 
12 DU ECRIT? 
13 ENDCASE  CURGEUR 
14 AGAIN ; 
15 ——) 


SCR # 51 
@ | Editeur pleine page fin 

1 + EDIT 

2 DECIMAL SCR ! INIT CHOIX } 
3 

4 FORTH DÉFINITIONS DECIMAL 
5 

6 : ED EDITOR EDIT ; 


ABSEPB6 } 


FORTH 


11 ! syntaxe: n ED 


j=mmmmemmmmne msn nene nee sente ne ee nee nee + 


FONCTION HORLOGE pour F83 sous MSDOS 


par A.JACCOMARD 


l 9 
8 \ Chargesent, \ HORLOGE. 180ct86J a 
l 
2 Ce prograsse suppose la présence sur une carte aultifonctions 
3 1 5 +THRU de l'horloge “teaps réel" du PC-XT, accessible par Les fonctions 
1 42 à 45 de l'interruption 21H, 
5 55 v00 fonct. 42 : Lecture de La date, CX = année, DX = sois/jour, 
6 CR .{ Horloge chargée.) "43: positionne la date, sêses valeurs. 
1 CR. Pour changer date/heure, utilisez DATE-HEURE.) e 44: Lecture de L'heure, CX = hh/ss, DX = 55/1808. 
B CR .{ Pour avoir date/heure, utilisez NOW.) "45: positionne l'heure, aêaes valeurs. 
9 48 VDO 
18 
11 6 VIENS HORL.BLK \ place ce fichier dans VIEN-FILES. 
12 
13 
14 
15 
2 18 
8 \ Mois et Jours. 1düct88JaD \ Mois et Jours. 220ct86J a) 
( 
2 5 "ARRAY  (S gr -- : compil. ; -- adr lgr : exécut. ) *ARRAY ot de définition pour Les tableaux de chaînes, 
3 CREATE C, ASCII * NORD COUNT DR HERE R@ MOVE R) ALLOT 
4 DOES) COUNT DR SNAP RE # + R) ; "MOIS (Sn---) ndeBàli 
$ tableau des nous de aois. 
8 3 "ARRAY "MOIS "JanFevMarAvrMaidJundui AouSepOctNovDec* 
7 3 "ARRAY “DAY “DisLunMarMer JeuVenSaa” "DAY (Sn---} ndeds4 
8 tableau des nons de jour. 
9 CODE LIS-H (S fonct --- heure ou date espilée } 
18 AN POP AL AH MOV 33 INT LIS-H lecture de La date (fonct=42) ou de L'heure (fonct=44}, 
Il DX PUSH \ sec, et 1/188 ou aois/jour Retourne Les valeurs sur La pile. 
12  CX PUSH \heure et sin. ou année. 
13 AL PUSH Va du jour de la sesaine 
14 NEXT OC; 
15 
ÿ il 


8 \ Horloge: CLK', CLK8. 


H? \ teste la présence de l'horloge. 
CLK@ CLK! 14 CA @= IF CR ." Horloge inactive." 
FALSE ELSE TRUE THEN ; 


1 

2 VARIABLE CLK'  ELK! 7 ALLOT 

3 : CLK8 

4  42LIS-H \ lecture de la date 
5 256 /M0D DROP CLK'! C! \Si 

&  SMAP 256 /MOD SWAP CLK! 1+ C! \dl 

7 CLK! 2+ C' VU MK 

8 CLK! 3 +! \ AA 

9 44 LIS-H \ lecture de L'heure 
18 DROP CLK! 5 + 4 BOUNDS \ calcule lisites de boucle 
14 DO 256 /NOD IC! D 1+C! 2 #L00P ; \ place HHasss en CLK' 
12 

13 

14 

15 


4 
Horloge: affichage, 


2 


5 CLKH (Sn ---) 
EEK! +C@SD6E ; 
5 (DATE) (6 --- adr Igr }) 
CLKe CH 3 CLK! + @ 188 /HOD DROP SD 4S 
2 ELK' + C@ !- "HIS DUP MEGATE HLD +! HELD @ SWAP CNOVE 
1 CLKH D ; 
HEURE) (S --- adr gr } 
CLK@ C4 7 CLKY ASCII : HOLD 6 CLKE ASCII : HOLD 
18 SECLK# #) ; 


D + D EN = LA RO ne 


eo 


il: JOUR CLK@ CLK! Ce "DAY TYPE SPACE ; 

12: DATE (DATE) TYPE SPACE ; 

13 : HEURE (HEURE) TYPE SPACE ; 

14: NON OH? IF 115 CURS 55 VDO 51 24 AT." le“ 


15 JOUR DATE ." à * HEURE 48 VDG 117 CURS THEN ; 


220ct86JaD \ Horloge: CLK!, ELK@. 


220ct86J al 


CLK' table contenant date/heure. 


CLK8 Lit la date et L'heure de l'horloge et Les place 
dans CLK!: 
le er octet contient le n° du jour de la sesaine 

2, 3, 4et 5èses pour le jour, Le sois et l'année; 


6, 7, 8 et 9èses pour heure, ainute, sec. et 1/188. 


H? teste la présence de l'horloge “teaps réel", en supposant 
qu'en san absence Le contenu de L’octet est nul, 


12 


\ Horloge: affichage, 220ct88J a 


CLK# convertit le n ièse oct. de CLK' en ses codes ASCII, 


(DATE) construit une chaîne contenant la date, forsat JJMauñÂ 


(HEURE) construit une chaîne contenant l'heure, forsat HHaass 


JOUR affiche le jour de La sesaine { Lun, Mar, ... 
DATE ; la date 

HEURE " l'heure 

NON ” date/heure en bas de l'écran. 
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7 


8 


o) 13 


9 \ EDITOR [D autosatique. {@0ct86}aD \ EDITOR ID automatique. 220ct86J ab 
! 

22 QUI) (S--1 "dal"; QUI) espile adr et lgr de la chaîne contenant l’identifi- 
3 cateur de l'utilisateur, 

Az QUI (S--3) (Qui) TYPE SPACE ; 

$ QUI l'iaprine. 

&: SET-ID ($ --) 

7 H? SET-ID reaplace la routine usuelle de “boutage". Après 

g IF (DATE) € EDETOR 3 ID SMAP CMOVE (QUI [D 7 + SNAP CHOVE exécution de HELLO, et si L’horlage "tenps réel" est 
9 THEN HELLO ; présente, le taspon de l'éditeur ID contient la date 
18 et les initiales de L'utilisateur, qui seront placées 
4i * SET-ID IS BOOT par STANP dans chaque écran sodifié, 

1? 

13 La phrase “ ? SET-10 16 BOOT * peraet, après sauvegarde du 


systène, une aise à jour autosatique du taspon d’éditeur. 


é 14 
@ \ Mise à date/heure. 220ct86JaD \ Mise à date/heure, 220ct82220ct86J al 
! 
2 CODE MIS-D (5 JJ MM AÂaa --- fl ) MIS-D Les valeurs eapilées JI MX AAaa sont placées dans les 
3 CA POP AX POP AL DH MOV AX POP AL DL MOV 45 # AH NOV registres de l'horloge. 
4 SSINT AH AH SUB AX PUSH NEXT C; 
$ NIS-H de aêse pour L'heure HH sn (les secondes sont aises à 8) 
6 CODE MIS-H  (S HH aa --- fl } 
7 ak POP AL CL MOV A POP AL CH MOV 45 # AH MOV au retour, la pile contient un drapeau vrai (-1) si les 
g DXOX SUB 33 INT AH AH SUB AX PUSH NET C; valeurs de date ou d'heure ne sont pas valides. 
9 
18 z INPUT? { -- fn] f ) INPUT? entrée d'un nbr; espile seuleaent un drapeau faux s'il 
11  QUERY BL NORD NUMBER? NIP DUP @= IF NIP THEN ; y à eu entrée d’un autre caractère: la valeur concernée 
12 --) n'est alors pas modifiée. 
13 
14 
{$ 

7 15 
@ \ Mise à date/heure. 220ct86JaD \ Mise à date/heure. 220ct86J al 
l 
2 : DATE-HEURE 15 -- } DATE-HEURE desande de la date et de l'heure pour aise à jour. 
3 OH? NOT IF EXIT THEN Le jour Jd est un nbr cospris entre 1 et 51, 
4 CR." Date/heure courantes : " DATE HEURE CR Le sois M est un nbr cospris entre { et 12. 
5 CR." Jour ? * INPUT? IF 1 CLK' + C! THEN L'année est cosprise entre 1988 et ... 2047, 
6 CR." Mois ? " INPUT? IF 2 CLK! + C! THEN L'heure HH est cosprise entre B et 23, les sinutes 
7 CR." Année ? “ INPUT? IF 3 CLK! + OC! THEN sa entre @ et 59; ne pas entrer de secondes. 
8 CR." Heure ? "INPUT? IF S CEK! + C' THEN Si un caractère autre qu'un chiffre est entré, la 
9 CR." Minute ? * INPUT? IF 6 CLK! + C! THEN valeur courante n’est pas aodifiée. 
I8CR .* Frappez une touche pour prise en compte.” KEY DROP CR La prise en cospte de ces valeurs 5e fait à l'appui 
1t CLK! {+ ce CLK! 2+ C8 3 CLK' + @ HIS-D d’une touche. 
12 IF." Date non valide, recossencez." CR CR RECURSE THEN Leur validité est vérifiée par le BIOS: en cas 
13  CLK! 5+ Ce CLK' 6 + Ce NIS-H d'erreur, il faut recassencer. 
14 IF ." Heure non valide, recosaencez." CR CR RECURSE THEN Vérification à posteriori par NON. | | 
15 NOW ; 


suite de la page 2 


Ces quelques exemples très simples (et peu réalis- D'autre part, nous n'avons fait qu'effleurer le 
tes...) permettent, sans entrer dans les détails sujet, et l'APL possède bien d'autres possibilités 
de la syntaxe, de donner une petite idée de la de calcul. 

facilité et de la puissance que procure le langage 

APL dans la mnipulation des variables multidimen- Notamment, l'inversion d'une mtrice qui est une 
gionnelles. Pour faciliter la compréhension, nous affaire d'état avec d'autres langages, se 
avons utilisé des variables de faibles dimensions, programme en APL par un seul signe opératoire en 
mais les procédures utilisées sont indépendantes forme de domino. 

des dimensions des variables, lesquelles ne sont | 

pratiquement limitées que par la mémoire disponi- F.ESPINASSE 
ble. 
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ET 


Bruce W. Walker, San Pedro, California 
Forth Dimensions v/6 
Traduction Erié Aubourg 


Cet article donne une manière simple d'ajouter 
des structures de données au Forth, comme en PL/I, 
en COBOL ou en PASCAL. Il contient trois parties : 
Premièrement, ce que sont les structures de données 
et comment on peut les utiliser en Forth, deuxiè- 
mement comment fonctionnent les définitions Forth 
et troisièmement les définitions elles-mêmes. 


Les structures de données. 


Les programmes Forth utilisent en général 
uniquement deux types de données : les nombres et les 
tableaux de nombres. Alors que cela convient pour du 
calcul scientifique, les programmeurs de gestion savent 
depuis des temps immémoriaux (c.a.d. depuis 1960) 
que beaucoup de programmes sont plus faciles à 
concevoir et à écrire si l’on utilise le concept de struc- 
ture de données. Une structure de données est une 
collection hétérogène de données, et on peut la conce- 
voir soit comme une seule entité soit comme une col- 
lection avec des parties ayant des noms, selon la 
nécessité du moment. 


Alors que le Forth a peu de possibilités de struc- 
tures de données implémentées en standard, il a tous 
les outils nécessaires pour ajouter de nouveaux types 
de données. D’autres auteurs ont travaillé sur les piles 
utilisateur, les nombres compiexes?, la quadruple 
précision‘ et les chaînes de caractères? 6. La chose qui 
se rapproche le plus de structures de données en Forth 
est l’article sur la conception d’une base de données 
en Forthf; cet article est une mine d’or d'idées et tout 
programmeur Forth sérieux devrait le lire au moins 
une fois par an. 


DECLARE 1 EMPLOYE, 
2 NOM CHARACTER (16), 


2 AGE FIXED BINARY (15,0); 


Figure 1. 


En PL/I, un programme peut avoir une déclaration 
comme celle de la figure 1. Cela signifie que EM- 
PLOYE est composé de deux parties, NOM et AGE. 
On peut faire appel aux champs individuellement par 
EMPLOYE.NOM et EMPLOYE.AGE. 


DECLARE 1 BOSS, 
2 NOM CHARACTER(16), 


2 AGE FIXED BINARY(15.0): 


Figure 2. 


L'avantage par rapport à deux variables séparées est 
que EMPLOYE peut être utilisé comme un tout. Par 
exemple, supposons que nous ayons aussi la décla- 
ration de la figure deux. Alors l'instruction 


STRUCTURE DE DONNEES PL/I en FORTH 


par B.W.WALKER 


BOSS = EMPLOYE 
assigne les deux champs d'un coup. 


18 SS.EMPLOYE 

S.MOVE EMPLOYE.MOVE 
16 S.FLD NOM 
2 S.FLD AGE 


Figure 3. 


Pour faire la même chose en Forth, nous avons 
besoin de déclarer la structure, les champs, et créer des 
routines pour faire les assignements. Cela s’avère être 
très facile avec CREATE et DOES >. Les définitions 
sont données dans la section concluant cet article. 
L'exemple précédent de structure donnerait en Forth 
la figure 3. (Je n’ai pas inclu les fonctions de transfert, 
qui sont optionnelles.) Les références aux adresses des 
champs sont alors: 

EMPLOYE NOM 

EMPLOYE AGE 

Et l’assignation en bloc est effectuée par: 

EMPLOYE BOSS EMPLOYE.MOVE 

(Notez que l’on ne redéclare pas nom et âge pour 
boss.) 


Deux généralisations des structures de données 
apparaissent en PL/L Premièrement, les éléments 
peuvent être des tableaux, comme dans la figure 4. 


DECLARE I: EMPLOYE(100), 
2 NOM CHARACTER(16), 


2 AGE FIXED BINARY(15.0); 


Figure 4. 


Ceci déclare un tableau de structures de données, ici 
100 employés. Un programme peut alors contenir les 
instruction de la figure 5. 


EMPLOYE(M) = EMPLOYE(N) 
et 


EMPLOYE(M).NOM = EMPLOYE(N).NOM 


Figure 5. 


Pour faire cela en Forth, nous créons un tableau 
d'éléments et utilisons la forme d'allocation dynami- 
que de la déclaration de structure comme dans la fi- 
gure 6. 


1800 18 SARRAY EMPLOYE 
18 DS 
S.MOVE EMPLOYE.MOVE 


16 S.FLD NOM 
FLD.MC NOM.MOVE 
2 S.FLD AGE 


Figure 6. 


— 


JEDI no 31 décembre 1986 


N à EMPLOYE M à EMPLOYE 
EMPLOYE.MOVE 

et 

N à EMPLOYE M à EMPLOYE NAME.MOVE 


Figure 7. 


La figure 7 est donc la version Forth de la figure 5. 


La seconde généralisation est d’avoir plus d’un 
niveau, comme dans la figure huit. Maintenant une 
référence à un champ individuel ressemble à : 
EMPLOYE(N).NOM.INITIALES 


DECLARE 1 EMPLOYE(100), 
2 NOM, 

3 INITIALES CHARACTER(), 

3 PATRONYME CHARACTER(I4), 
2 AGE FIXED BINARY(15,0); 


Figure 8. 


En Forth, on peut faire la même chose en 
réinitialisant le décompte des adresses des champs, en 
déclarant la structure principale en premier, puis en 
déclarant les champs, comme dans le figure 9. 


1800 18 SARRAY EMPLOYE 
18 DS 
S.MOVE EMPLOYE.MOVE 
16 S.FLD NOM 
FLD.MC NOM.MOVE 
2 S.FLD AGE 
0 NOMSF 
2 S.FLD INITIALES 
14 S.FLD PATRONYME 


Figure 9. 


Alors en Forth, la référence aux champs se fait 


par: 
N à EMPLOYE INITIALES 


Une application typique d’une structure de don- 
nées est une table avec deux champs : KY le champ 
clé, et VAL le champ valeur. Le tableau doit être 
maintenu trié selon le champ KY quand de nouvelles 
entrées sont ajoutées. Cela signifie que lorsque l’on 
ajoute une nouvelle entrée, une partie du travail 
concernera seulement le champ clé (c.a.d. le test pour 
trouver où la nouvelle entrée doit aller), tandis que 
l’autre partie concernera les deux champs (c.a.d. dé- 
placer les autres entrées). 


Au tableau de la figure dix est associé un comp- 
teur ACT qui donne le nombre actuel d'entrées utili- 
sées. Le corps du tableau a deux champs, KY et VAL, 
tous les deux de 16 octets. £E est le nombre d'entrées 
maximum et a été défini comme une constante sur des 
bases générales de bonne programmation. On fait la 
convention que le tableau contient constamment une 
entrée bidon avec la plus grande valeur de VAL pos- 
sible. Cela simplifie la recherche, puisque quand on 
ajouté une nouvelle entrée, on peut être sur qu'on ar- 
rivera tôt ou tard sur un champ clé plus grand. 
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TBL.INIT initialise la table, et insère l’entrée bi- 
don en première position, pour que la condition sup- 
posée par la routine de recherche soit vérifiée. TBL.F 
prend une entrée à ajouter sur la pile, et compare son 
champ clé avec les champs clés des entrées du tableau, 
jusqu’à ce qu’une entrée avec un champ clé plus grand 
soit trouvé. TBL.F laisse alors l'indice sur la pile. 
TBL.I prend un indice sur la pile et décale toutes les 
entrées suivante d’un cran. Enfin, le mot 
TBL.INSERT supervise toute l'opération. Il vérifie si 
il reste de la place dans le tableau, et retourne 1 si ce 
n'est pas le cas. Sinon, il utilise TBL.F pour voir où 
l'entrée doit aller. Il utilise alors l'indice deux fois, une 
comme argument de TBL.I pour dégager de la place, 
et une autre comme argument de TBL.MOVE pour 
stocker la nouvelle valeur à l'endroit voulu. Fi- 
nalement, il retourne O0 pour indiquer que l'entrée a 
bien été ajoutée au tableau. 


1 VARIABLE ACT 

25 CONSTANT £E 

£E 4 * 4 S.ARRAY TBL 

4 DS S.MOVE TBL.MOVE 
2 S.FLD KY 2 S.FLD VAL 


: TBL.F ACT à 0 DO 
DUP KY à I TBL KY à < 
IF DROP I LEAVE THEN LOOP ; 


: TBLI 1-£E 1- DO 
I TBL I 1 + TBL TBL.MOVE -1 +LOOP : 


: TBL.INSERT ACT à £E = IF DROP I ELSE 
DUP TBL.F DUP TBL.I TBL 
TBL.MOVE 0 THEN ; 


: TBL.INIT 32767 0 TBLK KY ! 1 ACT !; 


Figure 10. 


Le fonctionnement des définitions. 


Comme pour tous les mots CREATE … DOES>, il 
y à une action au moment de la définition et une ac- 
tion au moment de l’exécution. Dans ce cas, l’action 
au moment de la définition comprend une sauvegarde 
des informations pour d’autres mots qui pourraient 
être utilisés plus tard, et un stockage dans le diction- 
naire. Tous les mots utilisent trois variables pour sau- 
vegarder des informations au moment de la définition: 
- TLEN longueur totale de la structure 

- CLEN longueur de ja structure, jusqu’au champ sur 

lequel on travaille 
- FLEN longueur du champ sur lequel on travaille 


Ces variables sont utilisées pour calculer les données 
sauvées par les différentes routines de transfert 
(MOVE), donnée qui est utilisée par la partie (com- 
mune) DOES > des routines. L'exemple le plus simple 
est S.MOVE, qui transfère une structure entière. 
Quand une opération comme S.MOVE 
EMPLOYE.MOVE est exécutée, le compilateur Forth 
utilise TLEN à , pour mettre la valeur courante de 
TLEN dans EMPLOYE.MOVE. Quand 


EMPLOYE.MOVE est exécuté, l'adresse de 
EMPLOYE.MOVE est empilée et la partie DOES > 
de S.MOVE est exécutée, et provoque un CMOVE qui 
transfère la structure entière. 


I y a juste quelques remarques à faire au sujet 
de l’utilisation des mots individuels. Il faut utiliser SS 
pour allouer une structure statique et commencer la 
définition des structures, seulement quand vous voulez 
à la fois les fonctions d'allocation et la structure de 
données. Quand la structure est déjà allouée, par un 
moyen ou un autre, il suffit d'utiliser DS pour com- 
mencer une structure dynamique. (La structure peut 
être déjà créée par exemple si elle a été définie par 
S.ARRAY, ou si on a créé un sous-champ, c’est à dire 
si on a relancé le décompte des adresses relatives). 


Il peut sembler inutile d’avoir quatre routines 
pour transférer des champs (entre deux structures si- 
milaires, d’un champ à une adresse arbitraire, d’une 
adresse arbitraire vers un champ ou entre deux adres- 
ses arbitraires), mais on a besoin de toutes ces fonc- 
tions à un endroit ou à un autre; Je n’ai pas trouvé 
de noms plus astucieux pour les quatres cas. Les mots 
auraient pu être plus simples en passant des paramè- 
tres’, mais cela aurait ralenti l'exécution, et on risque 
d'appeler beaucoup les mots définissant les champs. 


Description détaillée des mots. 


Puisque la plupart des mots ont à la fois une action à 

la compilation et une action à l'exécution, chaque 

description a jusqu’à trois parties : Premièrement, 
l'entrée créée par ce mot dans le dictionnaire; deuxiè- 
mement l’action à la compilation; troisièmement l’ac- 

tion à l'exécution. Pour les mots plus complexes, il y 

a une description pas-à-pas du mot, avec des descrip- 

tions de la pile entre parenthèses. 

INIT.SV (run time) Sauve la longueur totale de la 
structure dans TLEN, initialise le pointeur au 
début du champ courant, et stocke 0 dans CLEN. 

STR.SV (run time) Sauve l’offset du champ et sa lon- 
gueur; appelé par les mots de compilation et crée 
une entrée dictionnaire. 

(entrée dictionnaire) 
mot 1 = offset du champ 
mot 2 = longueur du champ 

SS (run time) alloue un tableau, puis appelle INIT.SV 

DS (run time) synonyme de INIT.SV 

S.ARRAY (compile time) Sauve la taille d’un élément, 
puis alloue un tableau: 

(entrée dictionnaire) 

mot 1 = taille d’un élément 

mot 2 = nb d'éléments 
(run time) multiplie la taille d’un élément par 
l'indice, et ajoute la base. 

S.MOVE (compile time) Sauve la longueur totale : 
(entrée dictionnaire) 

mot l = longueur totale 
(run time) Récupère la longueur qui avait été 
sauvée et utilise CMOVE (les adresses de départ 
et d'arrivée doivent déjà être sur la pile). 

S.FLD (compile time) Sauve l'offset de début de ce 
champ, stocke la longueur du champ dans FLEN 
et l’ajoute au pointeur courant : 

(entrée dictionnaire) 


mot | = offset du champ. 
(run time) Lit l’adresse relative du champ, et 
l'ajoute à l’adresse de base. 
FLD.MA (compile time) Appelle STR.SV pour sauver 
les caractéristiques du champ : 
(entrée dictionnaire) 
mot 1 = offset du champ 
mot 2 = longueur du champ 
(run time) (adresse - adresse de la structure - 
pointeur dictionnaire) 
DUP : Duplique l'adresse de l'entrée dans le dic- 
tionnaire. 
2+ : Pointe vers la longueur du champ. 
> R : Sauve l'adresse de la longueur du champ 
sur la pile de retour. 
à : Lit l’offset du champ. 
+ : Ajoute l'offset du champ à l’adresse de début 
de la structure. 
R> Récupère l'adresse de la longueur du 
champ. 
à : Récupère la longueur du champ. 
(adresse absolue du champ - longueur du champ) 
CMOVE : transfère depuis l'adresse fournie sur 
la pile vers la structure de données. 
FLD.MB (compile time) Appelle STR.SV pour sauver 
les caractéristiques du champ : 
(entrée dictionnaire) 
mot 1 = offset du champ 
mot 2 = longueur du champ 
(run time) (adresse de la structure - adresse - 
pointeur dictionnaire) 
> R : Sauve le pointeur vers le dictionnaire. 
SWAP : Echange les adresses des structures. 
R : Récupère le pointeur vers le dictionnaire. 
à : Lit l’offset du champ. 
+ : Ajoute l'offset du champ à l'adresse de début 
de la structure. 
R> Récupère l'adresse de la longueur du 
champ. 
à : Récupère la longueur du champ. 
(adresse - adresse absolue du champ - longueur 
du champ) CMOVE : transfère depuis l'adresse 
fournie sur la pile vers la structure de données. 
FLD.MC (compile time) Appelle STR.SV pour sauver 
les caractéristiques du champ : 
(entrée dictionnaire) 
mot ! = offset du champ 
mot 2 = longueur du champ 
(run time) (adresse de la structure 1 - adresse de 
la structure 2 - pointeur dictionnaire) 
> R : Sauve le pointeur vers le dictionnaire. 
R : Récupère le pointeur vers le dictionnaire. 
à : Lit l’offset du champ. 
+ : Ajoute l'offset du champ à l'adresse de début 
de la structure 2. 
(adresse de la structure 1 - adresse absolue du 
champ de la structure 2) 
SWAP : Echange les adresses. 
R : Récupère le pointeur vers le dictionnaire. 
à : Lit l’offset du champ. 
+ : Ajoute l’offset du champ à l'adresse de la 
structure 1. 
SWAP : echange les adresses 
R > : Prend le pointeur vers le dictionnaire. 
2+ : Pointe vers la longueur du champ. 


à Ha longueur dm een. oi 
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l EL 
è \ hots: CLS HOME CASE OF EMOOF ENDCASE 
p: CLS 12 EMIT SLINE OFF OUT OFF ; CLS 
2 ‘CLS IS DARK 
3 : HOME 30 EMIT OUINE OFF GOUT OFF , HONE 
4 
5 : CASE CSP € !CSP ; IMMÉDIATE 
6 


7: OF COMPILE OVER COMPILE = COMPILE ?BRANCH MARK 


8 COMPILE DROP ; IMMÉDIATE 


FONCTIONS GRAPHIQUES 


6Sdec86 MP Commentaires de CLS HOME CASE OF ENOOF ENDCASE 


par Marc PETREMANN 


93dec86 NP 
{ ---) efface le contenu de l'affichage video 

sur AMSTRAD/SCHMEIDER CPC $464, 664 et 6128. 

( ---) rasène le curseur en ligne 6, colonne à 

sur AMSTRAD/SCHNEIDER CPC #464, 664 et 6129. 


CASE 0F ENDOF ENDCASE sont des aots gerant une structure de con- 


trole, dent voici un exeeple: 


9 : ENDOF COMPILE BRANCH MARK SWAP : jour (n ---) 
10 DRESOLVE ; IMMEDIATE case | of ." Lundi * endof 
11 : ENDCASE COMPILE DROP 2 of .” Mardi " endof 
12 BEGIN SP CSP & (} 3 of .” Mercredi”  endof 
13 VHILE )RESOLVE etc... 
14 REPEAT 1 of .” Diaanche * endoi 
15 CSP 1 : IMMEDIATE endcase ; et ‘4 jour’ affiche ’ Jeudi’ 
2 2 
à \ Mots: PLOT PLOTR DRAU DRAR ' Comsentaires de PLOY PLOTR DRAU DRAR 09dec56 MP 
t HEX 
2 CO PLOT PLOT (x y -—--) Affiche un point graphique aux coordonnes x y 
3 DC, EHC, CS C, CB C, 898 , daos la couleur selectionnee par GPEN. 
4 BSEA , C1 C, MEXT END-CODE 
5 CODE PLOTR PLOTR ( dx dy ---) Affiche un point graphique aux coordonnées 
6 0) C, EI C, CS C, CH C, BEM , dx dy relatives au trace du precedent point 
1 B8€D , C1 C, NEXT ENO-COD€ 
8 CODE DRAW DRAW © x y ---) Trace un trait graphique depuis le dernier 
991C, ERIC, CS C, CD C, BE , point affiche vers le point de cocrdonmees x y. 
19 BRF6 , CI C, MEXT END-CODE 
11 CODE DRAM DRAUR € dx dv ---) Trace un trait graphique depuis le dernier 
12D1C,EIC, CSC, CD €, BE9B , paint affiche vers le point de coordonees relatives dx dy 
13 BBF9 , C1 €, NEXT ENO-CODE 
14 DECIMAL 
El 
3 13 
8 \ Mots: TAG TRANS &VINDOW VINDDV 99dec86 MP Commentaires de TAG TRANS SVINOOV VINOUY CE] 
1 HEX 
2 CODE TAG T46 Qu ---} Selectionne node ecriture Lexte en coordonnees 
3 EC, CSC, 7D C, CO C, BE9B , graphiques: ul selecltionne, u=ô deselectionne 
4 8863 , C1 C. NEXT END-CODE 
5 : TRANS TRANS (u ---) Selectionne node trace transparent graphique et 
6 22 EMIT EMIT : texte: u=l selectionne, ur deselectionne 
1 CODE #WINDOW &VINDOV ( u —-) Selectionne le nusere de fenetre courant 


8SE1C, CSC, 70 C, CD C, BE, 
9 8884 , C1 C, MEXT END-CODE 


u cospris dans l'intervalle @..7 


10 DECIMAL 
11 : VINOOW WINOOW ( ul u? u3 ud ---) Definit la taille de la feneire cou- 
12 26 EMIT - EMIT 1- EMIT j- EMIT 1- ENIT ; rante. Exeaple: 
LK] 
WU 3 4VINDOW 25 26 60 30 VINOOW 
15 
4 : H 

© \ Mots: NODE PAPER PEN INVERSE INK BORDER LOCATE O9dec86 MP Consentaires de MODE PAPER PEN INVERSE LINK BORDER LOCAOSdecne MP 
l : #00€ MODE Cu —-) Selection du node d'affichage: 

2 4 ENIT ENIT EMIT ; usd 20 car/ uxl 40 car/ wr2 80 car/ligne 

3 : PAPER PAPER Cu ---) selection couleur fond en node Lexte 

4 14 ENIT EMIT ; u compris dans l'intervalle 0..26 

5 : PEN PEN Qu ---) selection couleur forse en node texte 

6 15 ENIT EMIT ; u coapris dans l'intervalle 6..26 

7 : INVERSE INVERSE € ---) Inversion des couleurs fond et encre en node 
8 24 EMI; texte. 

39 : 1K INK Cul u? u3 ---) Etablit couleurs ul u2 de l'encre u3: 
to 28 EMIT EMIT EMIT ENIT ; ul u2 compris 6..26, u3 coepris 0..15 

11 : BORDER BORDER € ul u2 u3 ---) Etqblit les couleurs ul u2 du bord de 
12 29 EMIT EMIT EMIT ; ‘ 

13 : LOCATE 


14 31 EMIT EMIT ENIT , 
15 \ ' LOCATE ES AT  ( En option) 


FORTH 83-Standard sous CP/M pour AMSTRAD CPC 464/664/6128 
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1 REX 


F4 DECTMAL 
15 


6 


LHEX 


tS DECINA 


u 


PHEX 
2 CODE NO 


8 DECIMAL 
9 
18 
11 
12 
13 


8 


10 8988, 
1 9811, 
12 9848 , 
13 99% , 


2 CODE FLASH 
3EIC, 91 C, CSC, 63C, CD C, BE , 
A OCSÆ , C1 C, MEXT END-CODE 

S CODE ?CHôR 
6 CSC, CD C, BE, 
71 8866 , 26 C, 00 €, 6F C, CI C, ES C, NEXT EMD-CO0€ 
8 CODE CLG 
9 CSC, DC, BE, 
19 BEDB , C1 C, NEXT EMO-CO0€ 
H CODE ORIGIN 
1201 C, EI C, CS C, CD C, 8E® , 
13 88C9 , Ci C, NEXT END-COBE 


2 CODE GPEN 
SEC, CSC, 70 C, CD C, BE , 
4 BBDE , CI C, MEXT END-CO0E 

S CODE GPAPER 
6EIC, CSC, 7BC, (DC, BR, 
7 BSE4 , CI C, MENT END-CODE 
8 CO0E GVINOON 

JETC, OI C, CS €, CO C, BED, 
16 BOCF , C1 C, EI €, O1 €, CS C, CD C, BE , 
11 6802 , C1 C, C3 NEIT EMD-CODE 
12 CODE VWSV4P 
13 EI C, OI C, CS C, 45 €, 4B C, CD C, BE , 
14 6087 , Ct C, NEXT END-CODE 


VE 


\ Table des 


017S 
1564 
2924 
42% 
s446 
6561 
7547 
8387 
9863 
9563 
9877 
9998 


0 \ Hots: HOVE MOYER 


16090 , 


14 : SINNEG DUP 98 ) IF 
15 SAP 21 + 6 ; DROP 


0523 
1998 
3256 
1540 
5736 
6828 
TT 
8572 
9205 
9659 
9925 


188 SWAP - THEN { © SW 1 LITERAL 


sinus 16 bits 


© \ Mots: FLASH ?CHAR CLG ORIGIN 


© \ Mots: GPEN GPAPER GWINOOW VSWP 


301C,E1C, CS €, CD C, 8E9 , 
a BOCe , C1 C, REXT END-CODE 
S CODE MOVER 
60IC,E1C, CSC, CD C, BE, 
7 BBC3 , C1 C, MEXT ENO-CODE 


2079 
3428 
4695 
5878 
6947 
1884 
8660 
9272 
9703 
9945 


! 


6872 
2250 
3584 
4848 
6418 
7871 
71986 
8746 
3336 
9744 
9362 


1045 
2413 
3746 
5909 
6157 
7183 
8096 
8829 
9397 
978t 
9976 


* 


, 


LES 
29dec86 MP | Mots: FLASH ?CHAR CLG ORIGIN 93dec86 MP 


FLASH (ui 2 ---) Etablit la duree des clignoiesents. ui et a? 
soat donnes en 1/5%e de seconde. 


TCHAR ( --- €) Delivre le code du caractere situe à l’esplace- 
seat du curseur. Exesple: 14 15 LOCATE 2CHAR 


CLG  { ---) Vide le contenu de la fenetre graphique. 
ORIGIN ( y x —-) Precise l'origine de la fenetre graphique. 


Soit 0(=y(=399 et 6(2x(2639, exenple: 
399 2066 639 308 GWINDOV 204 300 GRIGIN 


16 
OSdec86 MP \ Mots: GPEN GPAPER GVINOOW WSUAP 69dec86 HP 


GPEN (u---) Elablil La couleur u du curseur graphique. 
Soit b(zu(m#25C 


GPAPER € u —) Elablit la couleur de fond en node graphique. 
Soit B(=u(e2s. 


GVINOGN © ul u2 u3 u4 ---) Deiernine les coordonnees de la fe- 
aetre graphique. ulzy haut, u2=y bas, 
u3rx droite, wéu gauche. 


WSVAP Oui u2 —- } Echange les caracteristiques des fenetres 
ul et u2. 


17 
\ Mots: MOVE HOVER 


MOVE (y x ——-) Deplace le curseur aux coordonnees y x. 


MOVER ( y x ---) Deplace le curseur aux coordonnees 
relatives y x. 


18 
\ Table des sinus 16 bits 


, Cette table a ete conposee a partir de la forsule: 
rciat(l6000tsin(a)) 
F pour 6(=a4:98 


SINNEG CDelivre le siaus signe. 
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14 


9 19 
© \ Fonctions trigoncsetriques 
1: SIN SIN 


2 366 NOD OUP 0X LF 360 + THEN 

3 OUP 186 > IF 186 - SINNEG -1 5 ELSE SINNEG THEN ; 
4: 15IR 1SIN { n deg --- sin) Delivre le sinus d'un angle eultiplie 
S SIN 16066 s/n00 SWAP 5098 ) IF | + THEN ; 


par a. Exeapie: 


\ Fonctions trigonomelriques 
deiivre le sin(a soduilo 360) 


164 60 ISIN. affiche 50 


6 : #00 1C0S  iden à 1S1N mais applique au cosinus. 


1 96 + 3SSIN ; 

8 VARIABLE 1@ VARIABLE V6 VARIABLE DEB VARIABLE FIN 
9 : CENTER 

18 Yo! 101; 

11: POSAIVE, 

12 OVER OVER 30DS 10 € + 

13 ROT ROT ESIN YO € + ; 

W 

15 


suite de la page 11 


CMOVE : Transfert. 
FLD.MD (compile time) Sauve la longueur du champ. 
(entrée dictionnaire) 
mot ! — longueur du champ 
(run time) Lit la longueur du champ et effectue 
le transfert entre les deux adresses. 


Bibliographie 


Beers, David A. ’Quadruple Word 
Simple Arithmetic” Forth Dimensions 
IV/I. 


Clark, Alfred, “Complex Analysis in 
Forth” Forth Dimensions III/4. 


qu LE 


10 YO DEB FIN variables ulilisees pour le trace d'arc de cercle 
CENTER ( x y ---) Affecte le centre d'un arc de cercle. 


POSIIYI Calcule la position d'un point par rapport au centre 
lors d'un trace d'arc de cercle. 


Harris, Kim, *Forth Extensibility” 
BYTE, Vol 5 No 8 (Aout 1980). 


Haydon, Glen B..”Elements of Forth 
Data Base Design”, Forth Dimen- 
sions III/2. 


Helmers, Peter H. "Userstack” Forth 
Dimensions LII/1. 


McCourt, Michael and Marisa, 
Richard A., "The String Stack”, 
Forth Dimensions III/4. 


McKibbin, David, “Parameter 
Passing to DOES>”, Forth Dimen- 
sions II/1. 


LL 


ICI Cr MAINTENQNT! 


Tous les mercredis, de 18h à 20h, des sujets variés, un niveau éle- 
vé, des invités prestigieux, des idées nouvelles et audacieuses, le 
tout animé par Michel ROUSSEAU. ICI et MAINTENANT est accessible 


également en composant le 3615 code X20001. 
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ee 
1 FENETRE 
FORGET ME : ME ; DECIMAL 
G VARIABLE Curs d , 4 CONSTANT 4 
19 CONSTANT D.0C 29 CONSTANT N_0C 
59 CONSTANT D._Y 188 CONSTANT N_Y 
: Cadre ZOVER D+ OVER 4 PICK 20VER 
LINE 2OVER TO 4 ROLL OVER TO TO DROP ; 
: CURS'!' 65217 VC6 65218 VC6 curs 2! ; 
{ sauvegarde Position du curseur ) 


: CURS6 curs 26 SHARP AT ; CURS ! 
: >PIm D_OC D_Y N_OC N_Y BPUSH ; 
‘ fyin DOC 4 *% 4 + D_'Y NY + 4 — 
N_0C 2- 4 %X N_Y 8 -— HINDOH ; 
1 dims DDC 4 % 2+ D_Y 2+ 
OC 4 *% 4 - NY 4 -— ; 
>cst ? NY ! ? N_0C ! 
# DLY ! * DOC ! ; 


: Fen STANDARD 9 BRIGHT 
1 EMIT >cst >PIm Twin 
2 INK dims ZOVER D+ BOX 
3 INK dims cadre 
PAPER PAGE PEN ; --35 


ECRAN Ho ë EchanSe d'écrans 


Sortie BPOP 4 PAPER 2 PEH 
1 BRIGHT 1 EMIT CURS& 
1ECR 3 1 20 29 32 49 Fen 


: 2ECR 3 2 20 199 32 64 Fen 

: SECR 2 1 32 50 26 109 Fen 

€ nom Pen PaPer octet/x/origine 
Pixel/Y/origine octet/x/lons 
Pixel/Y/haut -- Fer ) 


5 VARIABLE STOCK 7296 ALLOÜT 
7296 CONSTANT 1/26 € 1/2 écran ) 
49152 CONSTANT Vidéo € déPart vidéo) 
34848 CONSTANT Ch/II € CHROMA II ? 
1 mp € échange de Pañe ) 
Yidec STOCK 1/2e YCMOVE 
Ch'II video 1/2e VCMOVE 
STOCK Ch/II 1/2e VCMOYE 
Video 1/“2e + STOCK 1/2e 
Ch/II 1/2e + Video l1/2e + 1/2e 
STOCK Ch/II 1/26 + 1/2e VCMOVE 
Video STOCK 1/2e VCMOYE ; 
ECRAN Ho 3 VOIR 
: >SAUY 
Video 
STOCK 
CCh/Il 
Video STOCK 
: SAUV> 
STOCK Video 1/2e YVCMOVE 
CE Ch/II 1/2e + 1/28 + 64 +4 LITERAL 
STOCK 1/Ze CMOVE 
STOCE CVideo 1/2e +23 LITERAL 
172e YCMOVE ; 
"5 RIM sortie ?SAUY CLS 1ECR ; 
: R/OUT sortie CLS SAUV> 1ECR ; 
f RYIH sauve l'écran dans STOCK et en 
fin de mémoire ,; R/OUT l'affiche ) 


Le 


VCMOVE 
VCMOVE 


=) 


l/2e + STOCK 1/2e YVCMOVE 
1/Ze + 1/2e + 64 + 3 LITERAL 
1/2e CMOVE 

1/2e YCMOYVE ; 


Impre £s/on graphique 


Sarde de la Position du curseur et 
sauveSarde de 13 Portion d'écran dans 


mulfi-æ&crans 


par M ANZIL 


: VOIR BFOF -2<- jECR ."RA WYOIR" 
CR . "NN +++4" QUIT ; 
BINIT 1ECk ,"@UM VOIR" 
CR "UM "CR 
ECRAN Ho 4 DBLCOP 
6 VARIABLE #A 
‘ ÀT ll’ Oz IF 1 ELSE I’ 1 = 
-IF 2 ELSE I’ 4 DO 2 LOOP 
I’ 1- G DO * LOOP THEN THEN ; 


: DEBLCOP FAST sortie 
CR CR A #4 ! 2 LEMIT 
1 Z2F O0 I 
241 1 DO 7 @ DO J OVER I - POINT @= 
IF 7 #A +! THEN LOOP 
#A à 128 + LEMIT G 4A ! 
LÜOP -5<- 
241 1 DO 7 G D0Q J OVER I - POINT G= 
IF 19 #A +! THEN LOUP 
à 128 + LEMIT 4 #A ! 


CROP 13 LEMIT 
IF LEAVE THEH 


GET 15 = 
7 +LOCP 
15 LEMIT 13 LEMIT 1ECR SLOUW ; 


ECRANH No 
€ HECTOR HRX 


00e me 2 pus dam mme dns Guns GONE nt m0 0 Gb nn a 0 ue be sm ot mur amet 


-—} 


9 Explications 


Jean Michel 
=: ANZIL 
Fenétrage & 1a demande avec Sauve 


la Pile imate 

"sortie" = retour écran. 
DELCOP Permet d’imPrimer deux écrans 
sur toute la largeur de l'imprimante 
SEIKOSHA GP SORA en mode araPhique 
486 Points , Cette version est adap- 
tée au logiciel SraPhique CHROMA II 
écrit en BASIC adresse dessin:34@4s 
Fonctionnement: 1er écran chargé par 
FRESET/IHIT et l'option 2 du menu HPY# 
"K7", Tapez VOIR et sauvez Par R/IH 
CharSez le Zeme Par INIT et option 2 
TaPez R/OUT Pour revoir le 1er 
taPez VOIR Pour vérifier Que tout le 
monde est 1à Puis DBLCOP Pour imeri- 
mer les deux Pages Nov#1986 j 


HECTOR  HRX 
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Exemple d exécution cle D2 L CoP 


— [cues. LT 
F PPERATIONS CROGL 1H ORREAYATIONS OUTILS 


DEC IT 
ATTENTION 


CARTON EMM . Ads Gs 70 MM 
Ri A8 es MiC:MiicmMiBs 50 MN 


CARTON 1MM 
P7RE RIT Rir 
ETES ETES 


COLUVRURE R5 
LRU n LU rm : 


TI TT 


TRACER MUR PE |! 
#0 RESCAVES DE 


Om 


fes An 


Opéra tions en nofalan Scien fifique par G. SOULAF 


{ DIVISION NOTATION SCIENTIFIQUE ) 


2VARIABLE Ni VARIABLE N2 VARIABLE DIV VARIAELE EXF 
VARIABLE F1 VARIABLE P2 VARIABLE QUOT 1Q ALLOT 


Fi 2INPUT Ni 2! 3 
F2 INFUT DUP 32766 LI 
IF N2 : 
ELSE . ." TROF GRAND! " THEN ; 


QUOT IENTS 
DUF DIV ! 5 © 
DO U/ I 2% QUOT + ! 
10 Ux DIV 9 
LOOP DROPF 2DROF ; 


DIVISION NOTATION SCIENTIFIQUE ) 


ADECIM 5 0 
DO QUOT I 2k + © 
I DUF O©= 
IF DROF 10000 UX 
“ELSE DUF 1 = 
IF DROP 1000 UX 
ELSE DUF 2 = 
IF DROF 100 UX 
ELSE DUF Z = 
IF DROF 10 UX 
ELSE DUF 4 = 
IF DROF 1 UX THEN 
THEN THEN THEN THEN 
LOOP D+ D+ D+ D+ : 
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D0DYNTUBEANe OC 


IDDN EUNSe D 


€ MULTIPLICATION NOTATION SCIENTIFIQUE ) 
VARIABLE COMPTER VARJABLE EXP 
VARIABLE N1 20 ALLOT VARIABLE N2 20 ALLOT 
: Fi 
." 1ER NB? " Ni 12 EXPFECT © EXF ! 
12 O DO N1 I + C9 O= IF LEAVE I COMPTER ! THEN LOOFP 
N1 1- NUMBER 
COMPTER 9 : 
: F2 
.<" 2EME NB? " N2 12 EXPECT 
12.0 DO N2 I + C9 O= IF LEAVE 1 COMFTER ! THEN LOOP 


0DNTCUBRUAR EE © 


= 
À N 


DIVISION NOTATION SCIENTIFIQUE ) 


Ei ." E? " INFUT F1 ! : 
IER-NE  ." 1ERNE? " F1 El : 
2EME-NE ." 2EME NE? “ F2 E2 


ENTREE CR 1ER-NR CR 2EME-NE 


CALCULS 
ENTREE N1 29 N?2 9 QUOTIENTS 
ADECINM F1 9 F2 9 - EXF ! : 


AFFICHE 


CR <# 69 HOLD # k# # # 46 HOLD #S #> 


F/ CALCULS AFFICHE : 


N2 1- NUMBER 
COMPTER © : 


MULTIPLICATION NOTATION SCIENTIFIQUE ) 


OFAD 


FAD 20 ERASE :; 


REDUIT 
DUP 9 > 
IF ." NOMBRE TROP GRAND * 
DROF 2DRDP QUIT 


ELSE 


THEN 
OPFAD 


DUP 4 > IF 4 — DUF EXP +! 
ÿ Q DO # LOOP 
ELSE DROP O EXP +! 
THEN 


MULTIPLICATION NOTATION SCIENTIFIQUE ) 


FX 


CR F1 REDUIT 
CR F2 REDUIT 
DD*X 10000 U/ 


SWAP 5 à IF 1+ THEN O : 
AFFICHE <# 69 HOLD #5 #> TYPE EXF à 4 + 
F*. FX AFFICHE ;: 


E? 


TYPE EXP à 


Ÿ © NO UM BR A N #2 © 


" INPUT F2 ! 


ELSE DROP -1 
THEN : 


: CC 
PDPL © 
BEGIN 1+ DUP 


TIR 9 + C9 DUF 32 = 
IF DROP 1 
ELSE DROP @ THEN 


UNTIL ; 


( NOTATION SCIENTIFIQUE ) 


VARIABLE EXP 


: AFFICHE 


<# 69 HOLD #S #> 


TYPE 
EXP 7 : 


1 SWAP ?DUP 


1F 6 DO OVER * LOOP 


THEN 
SUAP DROP : 


{ NOTATION SCIENTIFIQUE ) 


3 (F) 
Q EXP ! 
CC DUF 9 > 


IF ." NOMBRE TROP ELEVE * 


DROP 2DROP 
ELSE DUF 5> 


1F 5 - DUP EXP ! 
© DO # LOOP AFFICHE 
ELSE DROF O EXP ! 
AFFICHE 


THEN 
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GESTION DE FICHIERS EN F85 


La première chose à faire est de créer un fichier, 


en précisant sa taille en blocs: 


CREATE-FILE < 


nom-de-fichiers> ( n ——) 


crée in fichier avec n blocs. 


Dès lors, vous pourrez ouvrir le fichier: 


OPEN <nom-de-fichier> 


Mais OPEN fait bien mieux: 
le mt <nomde-fichier> qui, 
l'exécution, ouvrira le fichier. Exemple: 


été fait, 


10 CRFATE-FILE FICHIER! 


OPEN FICHIER! 


FICHIER! 


Le mot MORE ( n -—) ajoute n blocs au fichier 
existant. Attention, certaines versions "oublient" 
de sauvegarder la nouvelle configuration 
fichier! Le remède est de redéfinir MORE comme 


suit: 


: MORE CAPACITY SWAP 8* MAXRIÆ= +! CAPACITY 
DO I HLOCK B/BUF HLANK UPDATE LOOP FLUSE ; 


La copie de blocs est exécutée à l'aide du mot 
copy ( bi b2 ——), ce qui a pour action de copier 


le contenu du bloc b1 dans le bloc ®. 


La copie de blocs mitiples est exécutée par 


CONVEX et utilisé comme suit: 


b1 b2 TO b3 CONVEY 


Exemple: 


10 20 TO 15 CONVEY 


copie les blocs 10 à 20 dans les blocs 15 à 25. 
CONVEY fera les copies dans l'ordre 
ceci pour éviter les 


Selon le cas, 


croissant ou décroissant, 
chevauchements de blocs à copier. Vous n'avez donc 


pas à vous en préoccuper. 


Le standard F83 prévoit la gestion simultanée de 
le fichier courant et le fichier 
secondaire (IN-FILE) que nous appællerons fichier 
donneur. Les concepteurs du F83 ont prévu, dans le 
de nouvelles versions des mots 
LOAD COPY et CONVEY effectuant respectivement le 
chargement, la copie simple et la copie miltiple à 
partir du fichier secondaire. 
dangeureux pour les distraits oubliant quel est le 


deux fichiers, 


vocabulaire FILES, 


fichier primire et quel est 


secondaire! 


Un mot permet d'ouvrir le fichier secondaire: 


FROM. Il s'utilise sous la forme: 


FROM <nom-de-fichier?> 


Ce mot donne également accès au vocæbulaire FILES 
et done aux versions spéciales de IOAD COPY et 
CONVEY. Dans les versions 1xx du F65, 
ramènent au vocabulaire initial après exécution. 
-Ils-ne servent donc qu'une fois Dans les versions 
suivantes, ils restent actifs tant que vous n'vez 
pas explicitement quitté le vocabulaire FILES. 


Exemple, première version de F65: 


FORTH 
OPEN FICHIER! 
FROM FICHIER? 


1 1 COPY 
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ouvre FICHIER! 
ouvre FICHIER? et 


pointe sur le vocabulaire FILES 
copie le bloc 1 de fichier 2 
dans le bloc 1 de FICHIER et ramè- 
ne au vocabulaire FORTH. 


décembre 1986. 


par Charles CORBOU 


il crée, 


crée FICHIER 

avec 10 blocs (0 à 9) 
ouvre FICHIER! et 
fabrique le mot FICHIER] 
réouvre FICHIER! 


Efficace, 


3 4 COPY copie le bloc 3 de FICHIER! 
dans le bloc 4 de FICHIER!. 


Exemple pour les versions suivantes: 


FORTH 
OPEN FICHIERI ouvre FICHIER! 
FROM FICHIER? ouvre FICHIER? et 
pointe sur le vocabulaire FILES 


1 1 COPY copie le bloc 1 de fichier 2 
dans le bloc 1 de FICHIER! 
3 4 COPY copie le bloc 3 de FICHIER 


dans le bloc 4 de FICHIER. 
vous êtes toujours dans le vocabulaire FILES 


Le mot SWITCH permute le fichier courant et le 
fichier donneur. Si vous n'en disposez pas, 
définissez-le comme suit: 


: SWITCH | 
FILE (@ IN-FILE @ FILE ! IN-FILE ! ; 


Voici, pour votre tranquilité d'esprit, un mot qui 
ramènera les deux fichiers au seul fichier 
courant: 


: UNIQUE FILE (à IN-FILE ! ; 


Note: IN-FILE est une variable contenant le FCB du 
fichier donneur. Dans certaines versions, cette 
variable s'appelle >FROM. Remplacez donc, si 
besoin est, IN-FILE par 2>FROM dans les deux 
définitions ci-dessus. B 


MANIPULATIONS POUR SAUVEGARDE DES HLOCS 
SUR AMSTRAD PCW 
par Marc PETREMANN 


C'est bien joli, le FORTH 83<Standard est 
compatible en version CP/M sur toute la gamme 
AMSTRAD, mais c'était trop beau pour durer. Mr 
ERUN Nicolas a trouvé l'os; le mt DONE exécuté en 
fin d'édition ne sauvegarde rien. 


C'est que Mr AMSTRAD, ne voulant rien faire comme 
tout le mnde (il était très bien pourtant le CP/M 
2.0) a imaginé d'embêter le peuple avec un CP/M 
3.0 appelé aussi CP/M+. Et ce CP/M ae comm 
principale propriété de ne pas permettre la 
compatiblité avec les logiciels tournant sous CP/M 
2.0, cetains du mins... 


En effet, le PCW&56 ou PCW8512 se sert de son 
extension mémire comme d'un disque virtuel. Nous 
disposons donc sous CP/M+ de deux drives voir 
trois: 


1 drive physique: At M: 
2 drives physiques: A: B: M: 


Or, quand vous éditez un programme sous FORTE, 
l'option W utilisée sous EDITOR ou SAVE-BUFFERS 
écrit le contenu de vos blocs sur M: et non sur A: 
ou B:. Donc, s'il vous prend l'envie de quitter 
FORTH puis d'y revenir, vous aurez la désagréable 
surprise de constater que rien n'a été sauvegardé. 
La solution à ce remède est simple, il suffit de 
taper: 


DONE CP/M CLOSE FORTH 


ou.de définir: 


ONLY CP/M ALSO FORTH ALSO 
: TERMINE DONE CLOSE ; 
ONLY FORTH ALSO 


et d'utiliser TERMINE à la place de DONE. Cette 
définition n'est pas incompatible avec F83 sur 
AMSTRAD CPC464, CPC664 ou CPC6128. Sur IEM et 
compatibles, on remplacera CP/M par DOS. 
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